home *** CD-ROM | disk | FTP | other *** search
/ Gigarom 1 / Gigarom Macintosh Archives (Quantum Leap)(CDRM1080320)(1993).iso / FILES / APP / S-Z / TimeBook2.0.sit / TimeFile00 / stack_-1.xml < prev   
Extensible Markup Language  |  1993-03-22  |  5KB  |  22 lines
  1. <?xml version="1.0" encoding="utf-8" ?>
  2. <!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
  3. <stack>
  4.     <name>in</name>
  5.     <id>-1</id>
  6.     <cardCount>2</cardCount>
  7.     <cardID>3038</cardID>
  8.     <listID>3941</listID>
  9.     <cantModify><false /></cantModify>
  10.     <cantDelete><true /></cantDelete>
  11.     <cantAbort><false /></cantAbort>
  12.     <cardSize>
  13.         <width>512</width>
  14.         <height>264</height>
  15.     </cardSize>
  16.     <script>-- STACKS: TimeBook, TimeClock, TimeFile-- VERSION:2.0-- ¬©Copyright 1993 Ronald Ladouceur, All Rights Reserved.-- DESCRIPTION: TimeBook - a fully functional time sheet and time tracking system.-- REQUIREMENTS: HyperCard 2.1 or HyperCard Player-- TimeBook uses XFCNs created in CompileIt! 2.1 ¬©Copyright 1992 by Heizer Software.-- The source HyperTalk scripts used to create these XFCNs and XCMDs are at the end-- of the background script of the TimeClock stack.-- TimeBook‚Äôs TimeClock stack uses an XFCN called popUpMenu() XFCN ¬©Copyright 1991-- by BungDabba Productions, All Rights Reserved. A popup menu XFCN which-- allows you to specify font and size.-- GLOBALS: commentsOn, autoUpdate, proMenus, punchLockOut,-- clientNumerals, jobNumerals, versionNumber, saveLockOut, holdDayList,-- optionStart, daysEnd, alreadyKnow, lastClickon idle-- traps idle before it goes to "TimeClock"end idleon openStackif wrongStack() then pass openStackglobal versionNumberif versionNumber is empty thenanswer "Please open TimeFile by choosing it from the menu of either the TimeBook or TimeClock stacks."if the number of lines of the stacks > 1 thenclose window (the short name of this stack)elsedoMenu "Quit HyperCard"end ifexit to HyperCardend ifstart using stack "TimeClock" && versionNumberlogicMenuslock screengo last cd of bg "TimeSaver"if fld "weekDayDate" is not the short date then sort cds dateTime by fld "weekDayDate"go to last cd of bg "savedTimeSheets"sort cds of this bg dateTime by fld "timeSheetWeek"startPunchend openStackon resumeStackopenStackend resumeStackon resumeopenStackend resumefunction wrongStackget the value of word 2 of the long name of mereturn (it is not line 1 of the stacks)end wrongStackon closeStackif wrongStack() then pass closeStackstopPunchend closeStackon suspendStackcloseStackend suspendStackon suspendcloseStackend suspendon doMenu whichMenuglobal versionNumberif "TimeFile" is not char 1 to 8 of the short name of this stack then pass doMenuif whichMenu is "About HyperCard..." thenput the visible of msg into msgVisif there is a window "SplashRes" thenmouseUpInPicture "SplashRes"elsehide msgpicture "SplashRes",resource,rect,true,8set the visible of msg to msgVisend ifexit doMenuend ifpass doMenuend doMenuon altFillOutTimeSheet whatWay,whatNumglobal clientNumerals,jobNumerals,versionNumberstart using stack "TimeBook" && versionNumberlock messagesask "Recalculated time sheets do not include overtime hours, payroll hours, or " &¬¨"comments." & return & return & "Recalculate week of‚Ķ" with the short dateif the result is not empty or it is "cancel" thenexit to hyperCardend iflock screenconvert it to long dateput guessMonday(it) into startDayput startDay into firstDayrepeat with x = 1 to 7go to cd (item 2 to 3 of firstDay & "," & whatNum) of stack "TimeFile" & whatNumif the result is not empty thenconvert firstDay to secsadd (60 * 60 * 24) to firstDayconvert firstDay to long datenext repeatend ifput empty into sheetMakerput empty into overTimeMakerput character 1 to 3 of word 1 of firstDay into thisCardput fld "weekDayTotals" into sheetMakerput makeMyDay(sheetMaker,thisCard,noOT) & return after totalMeconvert firstDay to secsadd (60 * 60 * 24) to firstDayconvert firstDay to long dateend repeatput totalMe into uncomparedput the number of lines of uncompared into totalLInesput finalCompareTest2(uncompared,totalLines,clientNumerals,jobNumerals) into IDidItgo to bg "timeSheet" of stack "TimeBook" && versionNumberclearTimeSheetif the number of lines of iDidIt > 1 thenput "Sorting jobs. Please stand by." into line 2 of fld id 67unlock screenlock screenput bubbleSort(iDidIt) into iDidItend ifunlock screenput "Filling out time sheet. Please stand by." into line 2 of fld "hiddenTimeField"show fld "hiddenTimeField"unlock screenlock screenput IDidIt into fld id 90put "Sorting jobs. Please stand by." into line 2 of fld "hiddenTimeField"put the number of items of line 1 of iDidit into itemCountput the number of lines of iDidit into lineCountput orgForFillOut(iDidit,lineCount,itemCount) into fillItOutput the number of lines of fillItOut into newLineCountmakeTheSheet fillItOut,lineCount,itemCount,whatWayaddWeek whatWayaddActualWeek whatWayhide fld "hiddenTimeField"unlock screengo to bg "TimeSheet"put startDay into fld "TimeSheetWeek"set the name of bg btn id 60 to "Print"click at 0,0stop using stack "TimeBook" && whatVerend altFillOutTimeSheet</script>
  17.     <background id="2706" file="background_2706.xml" name="TimeSaver" />
  18.     <background id="9556" file="background_9556.xml" name="SavedTimeSheets" />
  19.     <card id="3038" file="card_3038.xml" marked="false" name="00,3/22/93" owner="9556" />
  20.     <card id="2550" file="card_2550.xml" marked="true" name=" March 22, 1993,00" owner="2706" />
  21. </stack>
  22.